﻿Imports Microsoft.DirectX.Direct3D
Imports Microsoft.DirectX

Public Class Cylinder : Inherits Shape

    Dim Length, Radius1, Radius2 As Single

    Sub New(ByVal l As Single, ByVal r1 As Single, ByVal r2 As Single)
        Length = l
        Radius1 = r1
        Radius2 = r2
    End Sub

    Public Overrides Sub Create()
        M = Mesh.Cylinder(Device, Radius1, Radius2, Length, 125, 1)
    End Sub

End Class
